home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1991
/
number2
/
methods.act
< prev
next >
Wrap
Text File
|
1990-12-05
|
411b
|
16 lines
now(class(System));
/* Returns the method which called the method in which
calledFrom is invoked. */
Def calledFrom(self | bp)
{ if bp := stackLink(stackTop()) /* find current method */
then ^function(new(Context, stackLink(bp)))
endif;
^nil
}
/* Returns the method in which currentMethod is invoked. */
Def currentMethod(self)
{ ^function(new(Context, stackLink(stackTop())))
}